home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi Magazine Collection 2001
/
Delphi Magazine Collection 20001 (2001).iso
/
DISKS
/
Issue51
/
Construc
/
WebMod.dfm
< prev
next >
Wrap
Text File
|
1999-09-24
|
12KB
|
409 lines
object WebModule1: TWebModule1
OldCreateOrder = False
Actions = <
item
Default = True
Name = 'WebActionItem1'
OnAction = WebModule1WebActionItem1Action
end>
Left = 268
Top = 112
Height = 390
Width = 504
object CustomerXMLBroker: TXMLBroker
Params = <>
ProviderName = 'CustomerProvider'
WebDispatch.PathInfo = 'CustomerXMLBroker'
Left = 48
Top = 184
end
object MidasPageProducer: TMidasPageProducer
HTMLDoc.Strings = (
'<HTML>'
'<HEAD>'
'</HEAD>'
'<BODY>'
'<FONT FACE="Comic Sans MS"SIZE=2>'
'<H1>Hello, world!</H1>'
'<#INCLUDES><#STYLES><#WARNINGS><#FORMS><#SCRIPT>'
'<HR>'
'</TABLE>'
'</TABLE>'
'</BODY>'
'</HTML>')
IncludePathURL = 'http://localhost/cgi-bin/'
Left = 112
Top = 240
object CustomerOrderDataForm: TDataForm
object CustomerNavigator: TDataNavigator
XMLComponent = CustomerFieldGroup
end
object CustomerFieldGroup: TFieldGroup
XMLBroker = CustomerXMLBroker
object CustNo: TFieldText
DisplayWidth = 10
Caption = 'CustNo'
FieldName = 'CustNo'
end
object Company: TFieldText
DisplayWidth = 30
Caption = 'Company'
FieldName = 'Company'
end
object Addr1: TFieldText
DisplayWidth = 30
Caption = 'Addr1'
FieldName = 'Addr1'
end
object Addr2: TFieldText
DisplayWidth = 30
Caption = 'Addr2'
FieldName = 'Addr2'
end
object City: TFieldText
DisplayWidth = 15
Caption = 'City'
FieldName = 'City'
end
object State: TFieldText
DisplayWidth = 20
Caption = 'State'
FieldName = 'State'
end
object Zip: TFieldText
DisplayWidth = 10
Caption = 'Zip'
FieldName = 'Zip'
end
object Country: TFieldText
DisplayWidth = 20
Caption = 'Country'
FieldName = 'Country'
end
object Phone: TFieldText
DisplayWidth = 15
Caption = 'Phone'
FieldName = 'Phone'
end
object FAX: TFieldText
DisplayWidth = 15
Caption = 'FAX'
FieldName = 'FAX'
end
object TaxRate: TFieldText
DisplayWidth = 10
Caption = 'TaxRate'
FieldName = 'TaxRate'
end
object Contact: TFieldText
DisplayWidth = 20
Caption = 'Contact'
FieldName = 'Contact'
end
object LastInvoiceDate: TFieldText
DisplayWidth = 10
Caption = 'LastInvoiceDate'
FieldName = 'LastInvoiceDate'
end
object FieldStatus1: TFieldStatus
Caption = '*'
end
end
object OrdersNavigator: TDataNavigator
XMLComponent = OrdersGrid
end
object OrdersGrid: TDataGrid
XMLBroker = OrdersXMLBroker
object OrderNo: TTextColumn
DisplayWidth = 10
Caption = 'OrderNo'
FieldName = 'OrderNo'
end
object CustNo2: TTextColumn
DisplayWidth = 10
Caption = 'CustNo'
FieldName = 'CustNo'
end
object SaleDate: TTextColumn
DisplayWidth = 10
Caption = 'SaleDate'
FieldName = 'SaleDate'
end
object ShipDate: TTextColumn
DisplayWidth = 10
Caption = 'ShipDate'
FieldName = 'ShipDate'
end
object EmpNo: TTextColumn
DisplayWidth = 10
Caption = 'EmpNo'
FieldName = 'EmpNo'
end
object ShipToContact: TTextColumn
DisplayWidth = 20
Caption = 'ShipToContact'
FieldName = 'ShipToContact'
end
object ShipToAddr1: TTextColumn
DisplayWidth = 30
Caption = 'ShipToAddr1'
FieldName = 'ShipToAddr1'
end
object ShipToAddr2: TTextColumn
DisplayWidth = 30
Caption = 'ShipToAddr2'
FieldName = 'ShipToAddr2'
end
object ShipToCity: TTextColumn
DisplayWidth = 15
Caption = 'ShipToCity'
FieldName = 'ShipToCity'
end
object ShipToState: TTextColumn
DisplayWidth = 20
Caption = 'ShipToState'
FieldName = 'ShipToState'
end
object ShipToZip: TTextColumn
DisplayWidth = 10
Caption = 'ShipToZip'
FieldName = 'ShipToZip'
end
object ShipToCountry: TTextColumn
DisplayWidth = 20
Caption = 'ShipToCountry'
FieldName = 'ShipToCountry'
end
object ShipToPhone: TTextColumn
DisplayWidth = 15
Caption = 'ShipToPhone'
FieldName = 'ShipToPhone'
end
object ShipVIA: TTextColumn
DisplayWidth = 7
Caption = 'ShipVIA'
FieldName = 'ShipVIA'
end
object PO: TTextColumn
DisplayWidth = 15
Caption = 'PO'
FieldName = 'PO'
end
object Terms: TTextColumn
DisplayWidth = 6
Caption = 'Terms'
FieldName = 'Terms'
end
object PaymentMethod: TTextColumn
DisplayWidth = 7
Caption = 'PaymentMethod'
FieldName = 'PaymentMethod'
end
object ItemsTotal: TTextColumn
DisplayWidth = 10
Caption = 'ItemsTotal'
FieldName = 'ItemsTotal'
end
object TaxRate2: TTextColumn
DisplayWidth = 10
Caption = 'TaxRate'
FieldName = 'TaxRate'
end
object Freight: TTextColumn
DisplayWidth = 10
Caption = 'Freight'
FieldName = 'Freight'
end
object AmountPaid: TTextColumn
DisplayWidth = 10
Caption = 'AmountPaid'
FieldName = 'AmountPaid'
end
object StatusColumn1: TStatusColumn
Caption = '*'
end
end
end
end
object CustomerProvider: TDataSetProvider
DataSet = CustomerADOTable
Constraints = True
Left = 48
Top = 128
end
object ADOConnect: TADOConnection
Connected = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data ' +
'Source=C:\Program Files\Common Files\Borland Shared\Data\DBDEMOS' +
'.mdb;Mode=Share Deny None;Extended Properties="";Locale Identifi' +
'er=1033;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";' +
'Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=4;Jet OLEDB' +
':Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet' +
' OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Passwor' +
'd="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Da' +
'tabase=False;Jet OLEDB:Don'#39't Copy Locale on Compact=False;Jet OL' +
'EDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False'
LoginPrompt = False
Mode = cmShareDenyNone
Provider = 'Microsoft.Jet.OLEDB.4.0'
Left = 112
Top = 8
end
object CustomerADOTable: TADOTable
Active = True
Connection = ADOConnect
CursorType = ctStatic
TableName = 'customer'
Left = 48
Top = 40
object CustomerADOTableCustNo: TFloatField
FieldName = 'CustNo'
end
object CustomerADOTableCompany: TWideStringField
FieldName = 'Company'
Size = 30
end
object CustomerADOTableAddr1: TWideStringField
FieldName = 'Addr1'
Size = 30
end
object CustomerADOTableAddr2: TWideStringField
FieldName = 'Addr2'
Size = 30
end
object CustomerADOTableCity: TWideStringField
FieldName = 'City'
Size = 15
end
object CustomerADOTableState: TWideStringField
FieldName = 'State'
end
object CustomerADOTableZip: TWideStringField
FieldName = 'Zip'
Size = 10
end
object CustomerADOTableCountry: TWideStringField
FieldName = 'Country'
end
object CustomerADOTablePhone: TWideStringField
FieldName = 'Phone'
Size = 15
end
object CustomerADOTableFAX: TWideStringField
FieldName = 'FAX'
Size = 15
end
object CustomerADOTableTaxRate: TFloatField
FieldName = 'TaxRate'
end
object CustomerADOTableContact: TWideStringField
FieldName = 'Contact'
end
object CustomerADOTableLastInvoiceDate: TDateField
FieldName = 'LastInvoiceDate'
end
end
object OrdersADOTable: TADOTable
Active = True
Connection = ADOConnect
CursorType = ctStatic
IndexFieldNames = 'CustNo'
MasterFields = 'CustNo'
MasterSource = DataSource1
TableName = 'orders'
Left = 168
Top = 40
object OrdersADOTableOrderNo: TFloatField
FieldName = 'OrderNo'
end
object OrdersADOTableCustNo: TFloatField
FieldName = 'CustNo'
end
object OrdersADOTableSaleDate: TDateField
FieldName = 'SaleDate'
end
object OrdersADOTableShipDate: TDateField
FieldName = 'ShipDate'
end
object OrdersADOTableEmpNo: TIntegerField
FieldName = 'EmpNo'
end
object OrdersADOTableShipToContact: TWideStringField
FieldName = 'ShipToContact'
end
object OrdersADOTableShipToAddr1: TWideStringField
FieldName = 'ShipToAddr1'
Size = 30
end
object OrdersADOTableShipToAddr2: TWideStringField
FieldName = 'ShipToAddr2'
Size = 30
end
object OrdersADOTableShipToCity: TWideStringField
FieldName = 'ShipToCity'
Size = 15
end
object OrdersADOTableShipToState: TWideStringField
FieldName = 'ShipToState'
end
object OrdersADOTableShipToZip: TWideStringField
FieldName = 'ShipToZip'
Size = 10
end
object OrdersADOTableShipToCountry: TWideStringField
FieldName = 'ShipToCountry'
end
object OrdersADOTableShipToPhone: TWideStringField
FieldName = 'ShipToPhone'
Size = 15
end
object OrdersADOTableShipVIA: TWideStringField
FieldName = 'ShipVIA'
Size = 7
end
object OrdersADOTablePO: TWideStringField
FieldName = 'PO'
Size = 15
end
object OrdersADOTableTerms: TWideStringField
FieldName = 'Terms'
Size = 6
end
object OrdersADOTablePaymentMethod: TWideStringField
FieldName = 'PaymentMethod'
Size = 7
end
object OrdersADOTableItemsTotal: TFloatField
FieldName = 'ItemsTotal'
end
object OrdersADOTableTaxRate: TFloatField
FieldName = 'TaxRate'
end
object OrdersADOTableFreight: TFloatField
FieldName = 'Freight'
end
object OrdersADOTableAmountPaid: TFloatField
FieldName = 'AmountPaid'
end
end
object DataSource1: TDataSource
DataSet = CustomerADOTable
Left = 112
Top = 88
end
object OrdersProvider: TDataSetProvider
DataSet = OrdersADOTable
Constraints = True
Left = 168
Top = 120
end
object OrdersXMLBroker: TXMLBroker
Params = <>
ProviderName = 'OrdersProvider'
WebDispatch.PathInfo = 'OrdersXMLBroker'
Left = 168
Top = 184
end
end
